# R 语言 CSV文件

#获取和设置工作目录
print( getwd());

#创建工作目录
setwd("/R_learn/R_learn03");

print(getwd())

# 读取csv文件
data <- read.csv("input.csv");
print( data );

# 判断是否为data frame 类型
isDataFrame <- is.data.frame( data );
print(isDataFrame);

#获取列数量
cols <- ncol( data );
print( cols )

#获取行数量
rows <- nrow( data );
print( rows );

#获取最高工资
max_salary <- max( data$salary );
print( max_salary );

# 获取具有最高工资的人的 详情信息
person_info_max_salary <- subset( data,salary==max(salary));

print( person_info_max_salary )

# 获取所有IT部门员工信息
IT_worker_info <- subset(data,dept=="IT");
print(IT_worker_info );

# 获取工资大于600的IT部门人员信息
IT_equal_six_hundred <- subset(data,salary>600 & dept=="IT");
print("salary equal to six hundred workder for IT");
print(IT_equal_six_hundred )

# 获取在2014年加入的员工
year_join_former_2014 <- subset(data,as.Date(start_date) > as.Date("2014-01-01"));
print("year join former 2014 for worker");
print( year_join_former_2014 )

# 获取在2014年加入的员工 且 工资大于600
year_join_former_2014_equal_600 <- subset(data,as.Date(start_date) > as.Date("2014-01-01") & salary > 600 & dept == "IT");
print("year_join_former_2014_equal_600")
print(year_join_former_2014_equal_600 ) 

# 写入csv文件
write.csv( year_join_former_2014,"output.csv" );

# 读取新csv文件
new_data <- read.csv("output.csv");
print("new data for csv")
print( new_data );

# 这里X来自数据集newper 这可以在写入文件时使用附加参数删除
write.csv(year_join_former_2014,"output.csv",row.names = FALSE);
new_data <- read.csv("output.csv");
print( new_data );

